Merge"E:/exe_2025_1_13/WorkDir/case\constant\geometry\Box-1.stl";
DefineConstant[
   angle = {40, Min 20, Max 120, Step 1,
    Name "Parameters/Angle for surface detection"},
   forceParametrizablePatches = {0, Choices{0,1},
    Name "Parameters/Create surfaces guaranteed to be parametrizable"},
   includeBoundary = 1,
   curveAngle = 180
];
ClassifySurfaces{angle * Pi/180, includeBoundary, forceParametrizablePatches,
                 curveAngle * Pi / 180};
CreateGeometry;
Surface Loop(1) = Surface{:};
Volume(1) = {1};
Mesh.CharacteristicLengthMin=0.000000;
Mesh.CharacteristicLengthMax=1.000000;
Mesh.RecombineAll=0;
Mesh.SubdivisionAlgorithm=0;
Mesh.Smoothing = 20;
Geometry.OCCFixDegenerated = 1;
Geometry.OCCFixSmallEdges = 1;
Geometry.OCCFixSmallFaces = 1;
Geometry.OCCSewFaces = 1;
Mesh.Algorithm = 1;
Mesh.Algorithm3D = 1;
Mesh.CharacteristicLengthFactor = 1;
Mesh.ElementOrder = 1;
//+
SetFactory("OpenCASCADE");
//+
Coherence;
